﻿Public Class Config

    Private Shared DBInstance As String = "SHQ-PATTARAWUT\SQL_SERVER_2008"
    Private Shared DBName As String = "Master"
    Private Shared DBUser As String = "sa"
    Private Shared DBPassword As String = "12345678"



    Public Shared ConnectString As String = "Data Source=" & DBInstance & ";" & _
                                            "Initial Catalog=" & DBName & ";Persist Security Info=True;" & _
                                            "Pooling=false;Connect Timeout=45;User ID=" & DBUser & ";Password=" & DBPassword

    Public Shared PathFileName As String = "d:\GenerateModel\"

    Public Property _DBName() As String
        Get
            Return DBName
        End Get
        Set(ByVal value As String)
            DBName = value
        End Set
    End Property

    Public Function getConnectString() As String
        Return "Data Source=" & DBInstance & ";" & _
                "Initial Catalog=" & DBName & ";Persist Security Info=True;" & _
                "Pooling=false;Connect Timeout=45;User ID=" & DBUser & ";Password=" & DBPassword
    End Function


End Class
